home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / stock market.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  381 lines
  1. 1 REM: WRITTEN FOR VIC BY BRIAN LANE      WITH HELP OF F. PETER ROHRMAYER,III
  2. 2 REM: CONVERTED TO COMMODORE64 AND       ENHANCED BY LEONARD C. ZITNIK
  3. 3 REM ----------------------------
  4. 4 REM MODIFIED EVER SO SLIGHTLY BY
  5. 5 REM   DAVID BRADLEY (01/16/85)
  6. 6 REM ----------------------------
  7. 9 GOSUB17000
  8. 10 PRINT"DO YOU WANT INSTRUCTIONS (Y/N)";
  9. 11 INPUTA$:IFA$="Y"THEN13000
  10. 12 IFA$="N"THEN15
  11. 14 GOTO11
  12. 15 GOSUB17000
  13. 16 A(1)=INT(RND(1)*10)+40
  14. 17 A(2)=INT(RND(1)*10)+20
  15. 18 A(3)=INT(RND(1)*10)+10
  16. 19 A(4)=INT(RND(1)*10)+30
  17. 20 A(5)=INT(RND(1)*5)+1
  18. 21 A(6)=INT(RND(1)*5)+1
  19. 22 A(7)=INT(RND(1)*25)+10
  20. 23 A(8)=INT(RND(1)*10)+20
  21. 25 FORI=1TO8:Q(I)=20000:NEXT
  22. 29 PRINT:PRINT"  EACH PLAYER WILL START WITH $50,000."
  23. 30 PRINT"  HOW MANY PLAYERS (UP TO 8)";:INPUTP
  24. 32 IFP>8ORP<1THENGOSUB17000:GOTO29
  25. 35 GOSUB17000:PRINT
  26. 40 FORG=1TOP
  27. 45 PRINT" ENTER NAME OF PLAYER  #";G
  28. 50 INPUT" ";A$(G)
  29. 52 M(G)=50000
  30. 55 NEXT
  31. 56 PRINT" HOW MANY YEARS DO YOU WISH TO PLAY?"
  32. 57 INPUT" ";NY:NY=NY+1
  33. 58 FORNG=1TONY
  34. 75 IFNG=NYTHEN100
  35. 80 GOSUB6000
  36. 82 GOSUB9000
  37. 89 GOSUB105
  38. 90 NEXTNG
  39. 100 PRINT"FINAL YEAR'S CLOSING":PRINT"DO YOU WANT TO STOP?"
  40. 101 GETC$:IFC$=""THEN101
  41. 102 IFC$="N"THEN56
  42. 103 END
  43. 105 PRINT"[147]NET WORTH: .......................":PRINT:PRINT
  44. 108 FORX=1TOP
  45. 110 NW(X)=Q1(X)*A(1)+Q2(X)*A(2)+Q3(X)*A(3)+Q4(X)*A(4)+Q5(X)*A(5)+Q6(X)*A(6)+Q7(X)*A(7)
  46. 112 GW(X)=NW(X)+(Q8(X)*A(8))+M(X)
  47. 114 PRINTA$(X);TAB(20)"= ";GW(X)
  48. 116 NEXT
  49. 118 PRINT" PRESS SPACE TO CONTINUE."
  50. 120 GETZZ$:IFZZ$=""THEN120
  51. 122 RETURN
  52. 5000 PRINT"[147]":PRINT"[150] CORP. SHARES BID ASK  "LEFT$(A$(X),14)"[159]"
  53. 5001 PRINT"[150] [197][197][197][197][197][160][197][197][197][197][197][197][160][197][197][197][160][197][197][197] [144] [197][197][197][197][197][197][197][197][197][197][197][197][197][159]"
  54. 5002 PRINT:PRINT"1 A.E."TAB(6);Q(1);TAB(13);A(1);TAB(17);A(1)+1
  55. 5003 PRINT:PRINT"2 BMF"TAB(6);Q(2);TAB(13);A(2);TAB(17);A(2)+1
  56. 5004 PRINT:PRINT"3 CCR "TAB(6);Q(3);TAB(13);A(3);TAB(17);A(3)+1
  57. 5005 PRINT:PRINT"4 CPL"TAB(6);Q(4);TAB(13);A(4);TAB(17);A(4)+1
  58. 5006 PRINT:PRINT"5 D.D."TAB(6);Q(5);TAB(13);A(5);TAB(17);A(5)+1
  59. 5007 PRINT:PRINT"6 E.U."TAB(6);Q(6);TAB(13);A(6);TAB(17);A(6)+1
  60. 5008 PRINT:PRINT"7 N.C."TAB(6);Q(7);TAB(13);A(7);TAB(17);A(7)+1
  61. 5009 PRINT:PRINT"8 PT&T"TAB(6);Q(8);TAB(13);A(8);TAB(17);A(8)+1
  62. 5010 PRINT" YEAR #";NG
  63. 5050 RETURN
  64. 5404 PRINT"HOW MANY SHARES";:INPUTS
  65. 6000 X=1:FORZ=1TOP
  66. 6002 GOSUB5000:GOSUB20000
  67. 6003 PRINT" ":PRINT"[150] BUY, SELL OR EXIT (B/S/E)?[154]"
  68. 6004 GETV$:IFV$=""THEN6004
  69. 6005 IFV$<>"B"ANDV$<>"S"ANDV$<>"E"THEN6004
  70. 6006 IFV$="E"THEN6056
  71. 6007 IFV$="B"THEN6028
  72. 6008 PRINT" WHICH COMPANY #?   "
  73. 6009 GETC$:IFC$=""THEN6009
  74. 6010 C=VAL(C$)
  75. 6011 ON CGOTO8000,8100,8200,8300,8400,8500,8600,8700,8800
  76. 6025 PRINT" ";A$(X);TAB(9)"-BUY(Y/N)? "
  77. 6026 GETV$:IFV$=""THEN6026
  78. 6027 IFV$="N"THEN6056
  79. 6028 PRINT" WHICH COMPANY #"
  80. 6029 GETA$:IFA$=""THEN6029
  81. 6030 C=VAL(A$)
  82. 6031 ONCGOTO7000,7100,7200,7300,7400,7500,7600,7700,7800
  83. 6032 C=VAL(A$)
  84. 6056 X=X+1
  85. 6058 NEXTZ
  86. 6059 RETURN
  87. 7000 GOSUB16100
  88. 7002 PRINT:PRINTQ(1)"SHARES OF A.E. ARE AVAILABLE."
  89. 7003 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  90. 7004 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  91. 7005 IFS>Q(1)THEN7002
  92. 7006 TV=S*AS
  93. 7010 IFTV>M(X)THEN7000
  94. 7020 Q1(X)=Q1(X)+S
  95. 7030 M(X)=M(X)-TV
  96. 7035 Q(1)=Q(1)-S
  97. 7040 GOTO6002
  98. 7100 GOSUB16100
  99. 7102 PRINT:PRINTQ(2)"SHARES OF BMF ARE AVAILABLE."
  100. 7103 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  101. 7104 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  102. 7105 IFS>Q(2)THEN7102
  103. 7106 TV=S*AS
  104. 7110 IFTV>M(X)THEN7100
  105. 7120 Q2(X)=Q2(X)+S
  106. 7130 M(X)=M(X)-TV
  107. 7135 Q(2)=Q(2)-S
  108. 7140 GOTO6002
  109. 7200 GOSUB16100
  110. 7202 PRINT:PRINTQ(3)"SHARES OF CCR ARE AVAILABLE."
  111. 7203 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  112. 7204 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  113. 7205 IFS>Q(3)THEN7202
  114. 7206 TV=S*AS
  115. 7210 IFTV>M(X)THEN7200
  116. 7220 Q3(X)=Q3(X)+S
  117. 7230 M(X)=M(X)-TV
  118. 7235 Q(3)=Q(3)-S
  119. 7240 GOTO6002
  120. 7300 GOSUB16100
  121. 7302 PRINT:PRINTQ(4)"SHARES OF CPL ARE AVAILABLE."
  122. 7303 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  123. 7304 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  124. 7305 IFS>Q(4)THEN7302
  125. 7306 TV=S*AS
  126. 7310 IFTV>M(X)THEN7300
  127. 7320 Q4(X)=Q4(X)+S
  128. 7330 M(X)=M(X)-TV
  129. 7335 Q(4)=Q(4)-S
  130. 7340 GOTO6002
  131. 7400 GOSUB16100
  132. 7402 PRINT:PRINTQ(5)"SHARES OF D.D. ARE AVAILABLE."
  133. 7403 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  134. 7404 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  135. 7405 IFS>Q(5)THEN7402
  136. 7406 TV=S*AS
  137. 7410 IFTV>M(X)THEN7400
  138. 7420 Q5(X)=Q5(X)+S
  139. 7430 M(X)=M(X)-TV
  140. 7435 Q(5)=Q(5)-S
  141. 7440 GOTO6002
  142. 7500 GOSUB16100
  143. 7502 PRINT:PRINTQ(6)"SHARES OF E.U. ARE AVAILABLE."
  144. 7503 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  145. 7504 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  146. 7505 IFS>Q(6)THEN7502
  147. 7506 TV=S*AS
  148. 7510 IFTV>M(X)THEN7500
  149. 7520 Q6(X)=Q6(X)+S
  150. 7530 M(X)=M(X)-TV
  151. 7535 Q(6)=Q(6)-S
  152. 7540 GOTO6002
  153. 7600 GOSUB16100
  154. 7602 PRINT:PRINTQ(7)"SHARES OF N.C. ARE AVAILABLE."
  155. 7603 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  156. 7604 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  157. 7605 IFS>Q(7)THEN7602
  158. 7606 TV=S*AS
  159. 7610 IFTV>M(X)THEN7600
  160. 7620 Q7(X)=Q7(X)+S
  161. 7630 M(X)=M(X)-TV
  162. 7635 Q(7)=Q(7)-S
  163. 7640 GOTO6002
  164. 7700 GOSUB16100
  165. 7702 PRINT:PRINTQ(8)"SHARES OF PT&T ARE AVAILABLE."
  166. 7703 PRINT:PRINT" YOU CAN BUY SHARES FOR";AS
  167. 7704 PRINT:PRINT" HOW MANY SHARES";:GOSUB16000
  168. 7705 IFS>Q(8)THEN7702
  169. 7706 TV=S*AS
  170. 7710 IFTV>M(X)THEN7700
  171. 7720 Q8(X)=Q8(X)+S
  172. 7730 M(X)=M(X)-TV
  173. 7735 Q(8)=Q(8)-S
  174. 7740 GOTO6002
  175. 8000 PRINT"[147] [150]YOU HAVE"Q1(X);"SHARES OF A.E. STOCK.[159]"
  176. 8005 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(1)
  177. 8010 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  178. 8011 INPUTS
  179. 8014 IFS>Q1(X)THEN8000
  180. 8020 TV=S*A(1)
  181. 8025 M(X)=M(X)+TV
  182. 8030 Q1(X)=Q1(X)-S
  183. 8035 Q(1)=Q(1)+S
  184. 8040 GOTO6002
  185. 8100 PRINT"[147] [150]YOU HAVE"Q2(X);"SHARES OF BMF STOCK.[159]"
  186. 8105 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(2)
  187. 8110 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  188. 8111 INPUTS
  189. 8114 IFS>Q2(X)THEN8100
  190. 8120 TV=S*A(2)
  191. 8125 M(X)=M(X)+TV
  192. 8130 Q2(X)=Q2(X)-S
  193. 8135 Q(2)=Q(2)+S
  194. 8140 GOTO6002
  195. 8200 PRINT"[147] [150]YOU HAVE"Q3(X);"SHARES OF CCR STOCK.[159]"
  196. 8205 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(3)
  197. 8210 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  198. 8211 INPUTS
  199. 8214 IFS>Q3(X)THEN8200
  200. 8220 TV=S*A(3)
  201. 8225 M(X)=M(X)+TV
  202. 8230 Q3(X)=Q3(X)-S
  203. 8235 Q(3)=Q(3)+S
  204. 8240 GOTO6002
  205. 8300 PRINT"[147] [150]YOU HAVE"Q4(X);"SHARES OF CPL STOCK.[159]"
  206. 8305 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(4)
  207. 8310 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  208. 8311 INPUTS
  209. 8314 IFS>Q4(X)THEN8300
  210. 8320 TV=S*A(4)
  211. 8325 M(X)=M(X)+TV
  212. 8330 Q4(X)=Q4(X)-S
  213. 8335 Q(4)=Q(4)+S
  214. 8340 GOTO6002
  215. 8400 PRINT"[147] [150]YOU HAVE"Q5(X);"SHARES OF D.D. STOCK.[159]"
  216. 8405 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(5)
  217. 8410 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  218. 8411 INPUTS
  219. 8414 IFS>Q5(X)THEN8400
  220. 8420 TV=S*A(5)
  221. 8425 M(X)=M(X)+TV
  222. 8430 Q5(X)=Q5(X)-S
  223. 8435 Q(5)=Q(5)+S
  224. 8440 GOTO6002
  225. 8500 PRINT"[147] [150]YOU HAVE"Q6(X);"SHARES OF E.U. STOCK.[159]"
  226. 8505 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(6)
  227. 8510 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  228. 8511 INPUTS
  229. 8514 IFS>Q6(X)THEN8500
  230. 8520 TV=S*A(6)
  231. 8525 M(X)=M(X)+TV
  232. 8530 Q6(X)=Q6(X)-S
  233. 8535 Q(6)=Q(6)+S
  234. 8540 GOTO6002
  235. 8600 PRINT"[147] [150]YOU HAVE"Q7(X);"SHARES OF N.C. STOCK.[159]"
  236. 8605 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(7)
  237. 8610 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  238. 8611 INPUTS
  239. 8614 IFS>Q7(X)THEN8600
  240. 8620 TV=S*A(7)
  241. 8625 M(X)=M(X)+TV
  242. 8630 Q7(X)=Q7(X)-S
  243. 8635 Q(7)=Q(7)+S
  244. 8640 GOTO6002
  245. 8700 PRINT"[147] [150]YOU HAVE"Q8(X);"SHARES OF PT&T STOCK.[159]"
  246. 8705 PRINT:PRINT" YOU MAY SELL SHARES AT $";A(8)
  247. 8710 PRINT:PRINT" HOW MANY DO YOU WISH TO SELL";
  248. 8711 INPUTS
  249. 8714 IFS>Q8(X)THEN8700
  250. 8720 TV=S*A(8)
  251. 8725 M(X)=M(X)+TV
  252. 8730 Q8(X)=Q8(X)-S
  253. 8735 Q(8)=Q(8)+S
  254. 8740 GOTO6002
  255. 9000 X=INT(RND(1)*13)+1
  256. 9002 ONXGOTO9100,9150,9200,9250,9300,9350,9400,9450,9500,9550,9600,9700,9800
  257. 9100 GOSUB16500
  258. 9101 PRINT"[147] SOLID STATE BREAK-THROUGH!!"
  259. 9102 PRINT"[144] NATIONAL COMPUTERS UP $5 PER SHARE !![154]"
  260. 9104 A(7)=A(7)+5:GOTO9900
  261. 9150 GOSUB16500
  262. 9151 PRINT"[147] BULL MARKET PREDICTED!"
  263. 9152 PRINT" INSTITUTIONAL INVESTORS ENTER MARKET!"
  264. 9153 PRINT"[144] ALL STOCKS UP $2 PER SHARE !![154]"
  265. 9154 FORG=1TO8
  266. 9156 A(G)=A(G)+2:NEXT:GOTO9900
  267. 9200 GOSUB16500
  268. 9201 PRINT"[147] BEAR MARKET PREDICTED!"
  269. 9202 PRINT" SMALL INVESTORS ARE SELLING OUT!"
  270. 9203 PRINT"[144] MANY STOCKS DOWN $2 PER SHARE !![154]"
  271. 9204 A(5)=A(5)+2:A(6)=A(6)+2:FORG=1TO8
  272. 9206 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
  273. 9207 NEXT:GOTO9900
  274. 9250 GOSUB16500
  275. 9251 PRINT"[147] GOVERNMENT DEREGULATES UTILITIES!!"
  276. 9252 A(4)=A(4)+2:A(8)=A(8)+2
  277. 9253 PRINT"[144] CITY POWER & LIGHT UP $2 PER SHARE !![154]"
  278. 9254 PRINT"[144] PACIFIC TEL & TEL  UP $2 PER SHARE !![154]"
  279. 9255 GOTO9900
  280. 9300 GOSUB16500
  281. 9301 PRINT"[147] GOVERNMENT STIFFENS REGULATIONS!"
  282. 9302 A(4)=A(4)-2:A(8)=A(8)-2
  283. 9303 PRINT"[144] CITY POWER & LIGHT DOWN $2 PER SHARE !![154]"
  284. 9304 PRINT"[144] PACIFIC TEL & TEL  DOWN $2 PER SHARE !![154]"
  285. 9305 IFA(4)<1THENA(4)=1
  286. 9306 IFA(8)<1THENA(8)=1
  287. 9309 GOTO9900
  288. 9350 GOSUB16500
  289. 9351 PRINT"[147] TEAMSTER'S STRIKE!!"
  290. 9352 PRINT"[144] CENTRAL CITY RR    UP $2 PER SHARE !![154]"
  291. 9353 PRINT"[144] MOST OTHER STOCKS DOWN $2 PER SHARE !![154]"
  292. 9354 A(3)=A(3)+4:A(5)=A(5)+2:A(6)=A(6)+2
  293. 9355 FORG=1TO8
  294. 9356 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
  295. 9358 NEXT:GOTO9900
  296. 9400 GOSUB16500
  297. 9401 PRINT"[147]ARAB OIL EMBARGO!":A(5)=A(5)+5
  298. 9402 PRINT"[144] DRYHOLE DRILLING UP $3 PER SHARE !![154]"
  299. 9403 PRINT"[144] MOST OTHER STOCKS DOWN $2 PER SHARE !![154]":A(6)=A(6)+2
  300. 9404 FORG=1TO8
  301. 9406 A(G)=A(G)-2:IFA(G)<0THENA(G)=0
  302. 9408 NEXT:GOTO9900
  303. 9450 GOSUB16500
  304. 9451 PRINT"[147] LUCKY STRIKE FOR DRYHOLE... A GUSHER!!"
  305. 9452 PRINT"[144] DRYHOLE DRILLING DOUBLES IN VALUE !![154]"
  306. 9454 A(5)=A(5)*2:GOTO9900
  307. 9500 GOSUB16500
  308. 9501 PRINT"[147] LUCKY STRIKE FOR EUREKA URANIUM !"
  309. 9502 PRINT"[144] EUREKA URANIUM DOUBLES IN VALUE !![154]"
  310. 9504 A(6)=A(6)*2:GOTO9900
  311. 9550 GOSUB16500
  312. 9551 PRINT"[147] TECHNOLOGICAL BREAK THROUGH FOR ALPHA!"
  313. 9552 A(1)=A(1)+5
  314. 9553 PRINT"[144] ALPHA ENTERPRISES  UP $5 PER SHARE !![154]"
  315. 9554 GOTO9900
  316. 9600 GOSUB16700
  317. 9601 PRINT"[147] INFLATION INCREASE ......."
  318. 9602 PRINT"[144] MANY STOCKS UP 10 PERCENT IN VALUE !![154]"
  319. 9604 FORG=1TO8:A(G)=INT(A(G)*1.1):NEXT:GOTO9999
  320. 9700 GOSUB16500
  321. 9701 PRINT"[147] DRYHOLE DRILLING RE-ORGANIZES !"
  322. 9702 PRINT"[144] STOCK VALUED AT $1 PER SHARE !![154]"
  323. 9704 A(5)=1:GOTO9900
  324. 9800 GOSUB16500
  325. 9801 PRINT"[147] EUREKA URANIUM RE-ORGANIZES !"
  326. 9802 PRINT"[144] STOCK VALUED AT $1 PER SHARE !![154]"
  327. 9804 A(6)=1:GOTO9900
  328. 9900 FORT=1TO4000:NEXT:GOSUB16600:RETURN
  329. 9905 RETURN
  330. 9999 FORT=1TO4000:NEXT:GOSUB16800:RETURN
  331. 13000 PRINT" ....... I N S T R U C T I O N S ......."
  332. 13001 PRINT" THE FOLLOWING FIRMS OFFER STOCK OVER    THE  COUNTER:"
  333. 13002 PRINT
  334. 13003 PRINT" 1. A.E. - ALPHA ENTERPRISES"
  335. 13004 PRINT" 2. BMF  - BANKERS MUTUAL FUND"
  336. 13006 PRINT" 3. CCR  - CENTRAL CITY RAILWAYS"
  337. 13008 PRINT" 4. CPL  - CITY POWER & LIGHT"
  338. 13010 PRINT" 5. D.D. - DRYHOLE DRILLING CO."
  339. 13012 PRINT" 6. E.U. - EUREKA URANIUM"
  340. 13014 PRINT" 7. N.C. - NATIONAL COMPUTER"
  341. 13016 PRINT" 8. PT&T - PACIFIC TELEPHONE & TELEGRAPH"
  342. 13018 PRINT:PRINT" PRESS ANY KEY[145]"
  343. 13020 GETA$:IFA$=""THEN13020
  344. 13025 GOSUB17000:PRINT" THE OBJECT";
  345. 13050 PRINT" OF THE GAME, IS TO BE THE"
  346. 13051 PRINT" PLAYER WITH THE HIGHEST NET WORTH AT"
  347. 13052 PRINT" THE END OF A SELECTED NUMBER OF YEARS."
  348. 13054 PRINT:PRINT" YOU DO THIS BY BUYING & SELLING STOCKS."
  349. 13056 PRINT:PRINT" AT THE BEGINNING OF EACH YEAR YOU WILL  BE ASKED IF YOU";
  350. 13058 PRINT" WANT TO BUY OR SELL     STOCKS.
  351. 13060 [153]"WHEN YOU FINISH, THE NEXT PLAYER HAS A  CHANCE."
  352. 13064 [153]" PRESS ANY KEYON"
  353. 13065 [161]A$:[139]A$[178]""[167]13065
  354. 13072 [141]17000
  355. 13076 [153]" EACH YEAR, RANDOM EVENTS TAKE PLACE"
  356. 13077 [153]" AND WILL AFFECT CERTAIN STOCKS."
  357. 13080 [153]" PRESS ANY KEYON"
  358. 13082 [161]A$:[139]A$[178]""[167]13082
  359. 13085 [153]"LOAD":[137]15
  360. 16000 QQ[178][181](M(X)[173]AS):[139]QQ[177]Q(C)[167]QQ[178]Q(C)
  361. 16010 [153]" (MAX ="QQ")";:[133]S:[142]
  362. 16100 [153]"LOADDEF YOU HAVE $";M(X)"IN CASH.OPEN":AS[178]A(C)[170]1:[142]
  363. 16500 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
  364. 16510 [151]SD[170]4,16:[151]53281,09:[142]
  365. 16600 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
  366. 16610 [151]SD[170]4,16:[151]53281,06:[142]
  367. 16700 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1, 48:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,33
  368. 16710 [151]SD[170]4,16:[151]53281,04:[142]
  369. 16800 SD[178]54272:[151]SD[170]24,15:[151]SD[170]1,110:[151]SD[170]5,9:[151]SD[170]6,9:[151]SD[170]4,17
  370. 16810 [151]SD[170]4,16:[151]53281,06:[142]
  371. 17000 [153]"LOAD"[166]8)"DEF  STOCK MARKET GAME  WAITOPEN":[142]
  372. 20000 [153]""[163]23)Q1(X)[163]30)"$"Q1(X)[172]A(1)
  373. 20002 [153]""[163]23)Q2(X)[163]30)"$"Q2(X)[172]A(2)
  374. 20003 [153]""[163]23)Q3(X)[163]30)"$"Q3(X)[172]A(3)
  375. 20004 [153]""[163]23)Q4(X)[163]30)"$"Q4(X)[172]A(4)
  376. 20005 [153]""[163]23)Q5(X)[163]30)"$"Q5(X)[172]A(5)
  377. 20006 [153]""[163]23)Q6(X)[163]30)"$"Q6(X)[172]A(6)
  378. 20007 [153]""[163]23)Q7(X)[163]30)"$"Q7(X)[172]A(7)
  379. 20008 [153]""[163]23)Q8(X)[163]30)"$"Q8(X)[172]A(8)
  380. 20009 [153]""[163]24)"CASH  $"M(X):[142]
  381.